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DUBAVG 


DECUS Program Library Write-up 


DECUS NO. 8-347 


ABSTRACT 

DUBAVG is a subroutine which collects high speed data, smooths via two word arithmetic 
averaging, and scales the result to millivolts. As many as 4096 runs of 2048 points each 
may be averaged, limited only by the word length of the runs counter and size of the core 
field which contains the double word length sum, respectively. 

The program has been optimized to allow both the minimum (adjustable) point spacing and 
the maximum run repetition rate. Minimum point spacing is about 35 microseconds. 
DUBAVG is core field relocatable, and allows its buffer and sum storage to occupy any core 
fields whatever. 








/ASSEMBLER DEFINITIONS FOR DUBAVG 
/ 

FETCHP=65 

SPDIVP=100 

ZTEN=6342 

0TEN=6344 

XRCL=6334 

ADAC=6375 

SKAD=6332 

MADC=6377 

DUBAVG=200 

DAVG2s=400 

/END OF DEFINITIONS 


©/VERSION B 
♦DUBAVG 

/************************************************* 
/SUBROUTINE DUBAVG 

/ 

/CALLING SEQUENCE: CALL ARG ARE ADDRESSES) 

/ EFFECTIVE JMS DUBAVG 

/ AD CHANNEL NUMBER 

/ NUMBER OF DATA POINTS 

/ TIME DELAY FACTOR 

/ DATA FIELD OF BUFFER 

/ BASE OF BUFFER ARRAY 

/ DATA FIELD FOR SUM STORAGE 

/ BASE OF SUM ARRAY 

/ NUMBER OF AVERAGES 

/ 

/DATA COLLECTION VIA THE AX08* FOLLOWED BY ARITHMETIC 
/SIGNAL AVERAGING. 

/ 


/AS MANY AS 4096 (DEC) RUNS MAY BE AVERAGED* WITH 
/AS MANY AS 2048 DATA POINTS PER RUN. THE SPACING 
/OF DATA POINTS IS ADJUSTABLE BETWEEN 35 MICROSEC 
/AND ABOUT 18 MSEC. SCALING TO MILLIVOLTS 
/IS ACCOMPLISHED BY MULTIPLICATION OF THE RAW DATA BY 
/FOUR. 

/ 


/REQUIRED ANCILLARY PROGRAMS: 

/ FETCH 

/ SINGLE PRECISION DIVIDE (SIGNED) 

/ 

/PAGE ZERO LOCATIONS: 

/ AUTOINDEX 10*15*16*17 

/ SUBROUTINE POINTER CALLED SPDI VP 

/ 

/ 
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0200 

0000 

DUBAVG# 

0 


0201 

4465 


JMS 

I FETCHP /FETCH ARGUMENT 

0202 

0010 


10 

/NR ARGUMENTS 

0203 

0000 

NCHAN# 

0 


0204 

0000 

NOPTS# 

0 


0205 

0000 

DLAY# 

0 


0206 

0000 

DFBUFF# 

0 


0207 

0000 

BUFFS# 

0 


0210 

0000 

DFSUM# 

0 


0211 

0000 

SUMSTO# 

0 


0212 

0000 

RUNS# 

0 


0213 

1603 


TAD 

I NCHAN 

0214 

3203 


DCA 

NCHAN 

0215 

1605 


TAD 

I DLAY 

0216 

7041 


CIA 


0217 

3205 

/ 

DCA 

DLAY 



f 

/SET UP 
/ 

DATA FIELD CHANGE INSTRUCTIONS 

0220 

1610 


TAD 

I DFSUM 

0221 

1373 


TAD 

K6201 

0222 

3250 


DCA 

CHGZ 

0223 

6214 


RDF 


0224 

1373 


TAD 

K6201 

0225 

3254 


DCA 

RSTDF 

0226 

1606 


TAD 

I DFBUFF 

0227 

1373 


TAD 

K6201 

0230 

3266 


DCA 

CHGX 

0231 

1254 


TAD 

RSTDF 

0232 

3315 


DCA 

RSTORE 

0233 

1266 


TAD 

CHGX 

0234 

3333 


DCA 

CHGl 

0235 

1250 


TAD 

CHGZ 

0236 

3342 


DCA 

CHG2 

0237 

1254 


TAD 

RSTDF 

0240 

3354 


DCA 

RSTRE 


/ 

/CLEAR SUM STORAGE 


0241 

7240 

/ 

CLA CMA 


0242 

161 1 


TAD I SUMSTO 


0243 

3010 


DCA 10 


0244 

1604 


TAD I NOPTS 


0245 

7104 


CLL RAL 

/MULT BY TWO 

0246 

7041 


CIA 


0247 

3374 


DCA PNTCTR 


0250 

7402 

CHGZ# 

7402 


0251 

3410 


DCA I 10 

/THE CLEAR LOOP 

0252 

2374 


ISZ PNTCTR 


0253 

5251 


JMP .-2 


0254 

7402 

RSTDF# 

7402 
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0255 

0256 

0257 


0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
0311 
0312 
0313 
0314 
0315 


0316 

0317 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0330 

0331 


1612 


TAD I RUNS 

7041 


CIA 

3375 

/ 

DCA RUNCNT 


/COLLECT THE DATA 
/ 

7240 

RPTl# 

CLA CMA 

1607 


TAD I BUFFS 

3010 


DCA 10 

1604 


TAD I NOPTS 

7041 


CIA 

3374 


DCA PNTCTR 

7402 

CHGX# 

7402 

6342 


ZTEN 

7001 


IAC 

6344 


OTEN 

7040 


CMA 

6334 


XRCL 

7300 


CLA CLL 

1203 


TAD NCHAN 

6375 


ADAC 

6332 

FIRST# 

SKAD 

5277 


JMP FIRST 

7200 


CLA 

1203 

REPIT# 

TAD NCHAN 

6377 


MADC 

3410 


DCA I 10 

1205 


TAD DLAY 

3376 


DCA TIMER 

2376 

DELAY# 

ISZ TIMER 

5307 


JMP DELAY 

6332 

HOLD# 

SKAD 

5311 


JMP HOLD 

2374 


ISZ PNTCTR 

5302 


JMP REPIT 

7402 

RSTORE# 

/ 

7402 


/ IN IT RUNS COUNTER 


/BASE ADD DATA STORAGE 

/CLEAR ENABLE 
/PULSE RISE S0 
/PULSE FALL S0 

/SEL AND CONVERT 

/SEL READ AND CONV 


/AVERAGE WITH PAST RUNS 
/ 


1 604 

TAD 

I NOPTS 

7041 

CIA 


3374 

DCA 

PNTCTR 

7240 

CLA 

CMA 

1 607 

TAD 

I BUFFS 

3017 

DCA 

17 

7240 

CLA 

CMA 

161 1 

TAD 

I SUMSTO 

3016 

DCA 

16 

1016 

TAD 

16 

3015 

DCA 

15 

7340 

DUBADD# CLA 

CLL CMA 


/CLEAR LINK# SET AC TO 
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0332 

3376 


DCA NEGSWT 


0333 

7402 

CHG1 # 

7402 


0334 

1417 


TAD I 17 

/FETCH DATA POINT FROM BUFFER 

0335 

7104 


CLL RAL 

/SCALE TO MVS MULT BY 4 

0336 

7104 


CLL RAL 


0337 

7100 


CLL 


0340 

7510 


SPA 


0341 

5370 


JMP NEGIT 


0342 

7402 

CHG2# 

7402 


0343 

1416 

RTN# 

TAD I 16 

/FETCH LOW ORDER 

0344 

3415 


DCA I 15 

/REPLACE SUM IN LOW ORDER 

0345 

7204 


GLK 

/CARRY OR BORROW BIT 

0346 

141 6 


TAD I 16 

/FETCH HIGH 

0347 

2376 


ISZ NEGSWT 

/WAS NEW DATUM NEGATIVE? 

0350 

1377 


TAD <7777 

/YES* ADD PROPER HIGH ORDER 

0351 

3415 


DCA I 15 

/NO. PUT SUM IN HIGH ORDER. 

0352 

2374 


ISZ PNTCTR 


0353 

5331 


JMP DUBADD 


0354 

7402 

RSTRE# 

7402 


0355 

2375 


ISZ RUNCNT 


0356 

5260 

/ 

JMP RPT1 




/ 

/DIVIDE 

BY NR OF RUNS 


0357 

7240 

/ 

CLA CMA 


0360 

1 607 


TAD I BUFFS 


0361 

3017 


DCA 17 


0362 

7240 


CLA CMA 


03 63 

161 1 


TAD I SUMSTO 


0364 

3016 


DCA 16 


0365 

1200 


TAD DUBAVG 

/TAKE ALONG EXIT POINTER 

0366 

5767 


JMP I RESTP 


0367 

0400 

RESTP# 

REST 


0370 

2376 

NEGIT# 

ISZ NEGSWT 


0371 

7000 


NOP 


0372 

5342 


JMP CHG2 


0373 

6201 

K6201# 

6201 


0374 

0000 

PNTCTR# 

0 


0375 

0000 

RUNCNT # 

0 


0376 

0000 

TIMER# 

0 




NEGSWT= 

TIMER 


0377 

7777 






♦ PAGE 

/TRICKS ASSEMBLER TO PRINT LITERALS AND LINKS HERE 



♦DAVG2 



0400 

3243 

REST# 

DCA EXIT 


0401 

1 644 


TAD I PTPTR 

/FETCH ADDRESS OF NO PTS 

0402 

3245 


DCA AVTMP 


0403 

1 645 


TAD I AVTMP 

/FETCH NO PTS 

0404 

7041 


CIA 


0405 

3246 


DCA CNTR2 


0406 

1650 


TAD I CHGXP 

/FETCH DATA FIELD INSTRUCTION 
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0407 

0410 

041 1 

0412 

0413 

0414 

0415 

0416 

0417 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0450 

0451 

0452 


I 


3232 


DCA CHG3 



1651 


TAD I CHGZP 



3222 


DCA CHG4 



1652 


TAD I RSTDFP 



3240 


DCA EXT 



1240 


TAD EXT 



3226 


DCA LOCDF 



1647 


TAD I RUNSPT 

/FETCH 

ADD NO RUNS 

3245 


DCA AVTMP 



1645 


TAD I AVTMP 

/FETCH 

NO RUNS 

3231 


DCA DIVISR 



7402 

CHG4# 

7402 



1416 

RPT2# 

TAD I 16 

/FETCH 

LOW ORDER OF SUM 

3230 


DCA LOORD 



1416 


TAD I 16 

/FETCH 

HI ORDER 

7402 

LOCDF# 

7402 



4500 


JMS I SPDIVP 

/SIGNED DIVIDE SUBROUTINE 

0000 

LOORD# 

0 



0000 

DIVISR# 

0 



7402 

CHG3# 

7402 



7430 


SZL 



7402 


HLT 

/HALT 

ON DIVIDE ERROR 

3417 


DCA I 17 



2246 


ISZ CNTR2 



5222 


JMP CHG4 



7402 

EXT # 

7402 


• 

5643 


JMP I EXIT 



0000 

SWITCH# 

0 



0000 

EXIT# 

0 



0204 

PTPTR# 

NOPTS 



0000 

AVTMP# 

0 



0000 

CNTR2# 

0 



0212 

RUNSPT # 

RUNS 



0266 

CHGXP# 

CHGX 



0250 

CHGZP# 

CHGZ 



0254 

RSTDFP# 

RSTDF 
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ADAC 

6375 

AVTMP 

0445 

BUFFS 

0207 

CHGX 

0266 

CHGXP 

0450 

CHGZ 

0250 

CHGZP 

0451 

CHG1 

0333 

CHG2 

0342 

CHG3 

0432 

CHG4 

0422 

CNTR2 

0446 

DAVG2 

0400 

DELAY 

0307 

DFBUFF 

0206 

DFSUM 

0210 

DIVISR 

0431 

DLAY 

0205 

DUBADD 

0331 

DUBAVG 

0200 

EXIT 

0443 

EXT 

0440 

FETCHP 

0065 

FIRST 

0277 

HOLD 

031 1 

K6201 

0373 

LOCDF 

0426 

LOORD 

0430 

MADC 

6377 

NCHAN 

0203 

NEGIT 

0370 

NEGSWT 

0376 

NOPTS 

0204 

OTEN 

6344 

PNTCTR 

0374 

PTPTR 

0444 

REPIT 

0302 

REST 

0400 

RESTP 

0367 

RPT1 

0260 

RPT2 

0423 

RSTDF 

0254 

RSTDFP 

0452 

RSTORE 

0315 

RSTRE 

0354 

RTN 

0343 

RUNCNT 

0375 

RUNS 

0212 

RUNSPT 

0447 

SKAD 

6332 





SPDIVP 0100 
SUMSTO 0211 
SWITCH 0442 
TIMER 0376 
XRCL 6334 
ZTEN 6342 






♦FETCH 

/SUBROUTINE FETCH 
/ 

/FETCHES ARGUMENTS FOR SUBROUTINES 
/ 

/CALLING SEQUENCE: 


/ 

200 

SUBR# 


0 

/ 

201 



EFFECTIVE JMS FETCH 

/ 

202 



NUMBER OF ARGUMENTS (OCTAL) 

/ 

203 

ARG1 , 


0 

/ 

204 

ARG2# 


0 

/ 

• 

• 


• 

/ 

• 

ETC.# 

ONE FOR EACH ARGUMENT 

/ 

20- 



NEXT EXECUTABLE STATEMENT 

/ 

/FETCH 

UPDATES THE EXIT 

OF THE CALLING SUBROUTINE 

/PAGE 

ZERO 1 

LOCATIONS 

REQD : 

/ 

AUTOINDEX 16# 

17 

/ 

/ 

/ 

/ 

65 




FETCH# 

0 





CLA 

CMA 




TAD 

FETCH 


/POINTER TO STORE ARGUMENTS 


DC A 

16 




CLA 

CLL CMA RAL 

/SET ACC TO MINUS TWO 


TAD 

FETCH 


/POINTER TO SOURCE ARG LLIST 


DCA 

FETCH 




CMA 





TAD 

I FETCH 


/GET ARG SOURCE LIST ADDRESS 


DCA 

17 




TAD 

I 16 


/FETCH NO OF ARGUMENTS 


CIA 





DCA 

CNTR 



NEXT# 

TAD 

I 17 


/FETCH THE ARGUMENT 


DCA 

I 16 


/STORE IT 


ISZ 

CNTR 




JMP 

NEXT 




CLA 

I AC 




TAD 

17 




DCA 

I FETCH 


/UPDATE SUBROUTINE EXIT 


JMP 

I 16 


/RETURN TO SUBROUTINE 

CNTR # 
*65 

0 





FETCH 
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